home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / asmbler.arc / PORT.ASM < prev    next >
Assembly Source File  |  1988-11-19  |  765b  |  37 lines
  1. ASSUME  CS:SPORT
  2. SPORT   SEGMENT PUBLIC 'CODE'
  3. PUBLIC  READUNIT,WRITEUNIT,INITUNIT
  4.  
  5. READUNIT PROC FAR
  6.         POP     DI
  7.         POP     SI
  8.         POP     BX
  9.         PUSH    SI
  10.         PUSH    DI
  11.         MOV     AH,2
  12.         XOR     DX,DX
  13.         INT     14H
  14.         MOV     [BX],AX
  15.         RET
  16. READUNIT ENDP
  17. WRITEUNIT PROC FAR
  18.         POP     DI
  19.         POP     SI
  20.         POP     AX
  21.         PUSH    SI
  22.         PUSH    DI
  23.         MOV     AH,1
  24.         XOR     DX,DX
  25.         INT     14H
  26.         RET
  27. WRITEUNIT ENDP
  28. INITUNIT PROC FAR
  29.         XOR     AH,AH
  30.         MOV     AL,11111011B    ; 9600,E,1,8
  31.         XOR     DX,DX           ; PORT 0
  32.         INT     14H             ; RS-232C CALL
  33.         RET
  34. INITUNIT ENDP
  35. SPORT ENDS
  36. END
  37.